home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
C-Communications
/
(c)c5.d64
/
macterm v2.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
21KB
|
765 lines
0 OPEN255,2,3,CHR$(6)+CHR$(0):GOTO20000
10 REM *********************************
20 REM ********** MACTERM **************30 REM ADDRESS ANY QUESTIONS AND/OR
40 REM COMMENTS VIA E-MAIL TO
50 REM DUSTY VAN;72576,2237 OR CALL
60 REM ***** BUCCANEERS HARBOR II *****
70 REM ******** 408-243-2370 **********
80 REM *********************************
139 REM
140 REM TERMINAL
141 REM
145 POKEB2,32:POKEB1,32:POKE198,0:A$="":PRINTE$CHR$(14)R$" TERMINAL "J$
165 GET#255,A$:IFA$=""THEN180
170 PRINTL$CHR$(F%(ASC(A$)));:IFA$=Q$THENPOKEU,0
175 GOTO165
180 PRINTO$;:GETA$:IFA$=""THEN165
181 IFPEEK(214)=24THENPRINT"[145]";
191 IFASC(A$)>132THENGOTO1000
198 PRINT#255,CHR$(T%(ASC(A$)));
200 IFB=1THENPRINTL$;CHR$(F%(T%(ASC(A$))));:IFA$=Q$THENPOKEU,0
201 GOTO165
204 REM
205 REM DOWNLOAD
206 REM
220 G=3:K$="W":GOSUB345:PRINT:BL=.:N=.:IFEN>0THEN320
221 GOSUB700
222 GETB$:IFB$=CHR$(133)THEN2250
223 PRINT" ";F$:POKE214,13:GOSUB700
230 FORH=WTOP
235 CH=.:FORX=WTOV:GET#255,A$:E=ST:IFA$=""THENIFE=OTHENL=L+W
240 IFE=.THENL=.:GOTO255
242 GETA$:IFA$=CHR$(133)THEN320
245 IFL=MTHENL=.:GOSUB525
250 GOTO235
255 IFX=WTHENIFA$=CHR$(EOT)THENPRINT" "R$"EOT":GOSUB520:GOTO310
260 U%(H,X)=ASC(A$+C$):CH=CH+U%(H,X):NEXT:CH=CH-U%(H,V)
265 IF(U%(H,W)+U%(H,2)+U%(H,3)ANDF)<>.THENGOSUB525
270 IFU%(H,V)<>(CHANDF)THENGOSUB525
275 BL=BL+W:PRINT"[145] BLOCK [157][157][157][157]"BL
280 IFU%(H,2)<>BLTHENBL=BL-1:GOSUB520:GOTO235
285 IFH<>PTHENGOSUB520
290 NEXT:H=H-W
295 IFN=WTHENIFH=.THEN310
300 FORY=1TOH:FORX=EOTTOZ:PRINT#3,CHR$(U%(Y,X));:NEXT:NEXT
305 GOSUB520:GOTO230
310 FORA=WTOH:FORR=EOTTOZ:PRINT#3,CHR$(U%(A,R));:NEXT:NEXT:CLOSEG:GOTO550
314 REM
315 REM MENU
316 REM
320 PRINTE$:PRINTCHR$(142):POKE53248+33,C1:POKE53248+32,C2:POKE646,C3
325 PRINT" 1> TERMINAL"J$" 2> LOAD BUFFER"J$" 3> DOWNLOAD"J$" 4> UPLOAD"
326 PRINT" 5> WEDGE"J$" 6> AUTO DIAL"J$" 7> BBS MODE"
327 PRINT" 8> UTILITIES"
331 GOSUB505
335 ONVAL(A$)GOTO140,375,205,585,7000,10505,8000,5000:GOTO331
342 REM
343 REM FILENAME/TYPE SETUP
344 REM
345 CLOSEG
346 PRINT" FILENAME / EX[146]IT ";:INPUTF$:IFF$="X"THEN320
347 GOSUB700
350 PRINT"[145] P[146]RG / S[146]EQ / EX[146]IT ";:INPUTFT$:IFFT$="X"THEN320
351 GOSUB700
355 FT$=LEFT$(FT$,W)
360 OPENG,8,G,F$+","+FT$+","+K$:GOSUB900
362 IFEN>0THENPRINT"[145]";:GOSUB930:FORT=1TO2000:NEXT
363 RETURN
369 REM
370 REM UPLOAD
371 REM
375 POKE198,0:G=6:K$="R":GOSUB345:BL=.:IFEN>0THEN320
377 PRINT"";F$
378 POKE214,13:PRINT
380 FORY=WTOP:U%(Y,W)=W
381 PRINT"[145][145] LOADING"
385 BL=BL+W:U%(Y,2)=BL:U%(Y,3)=F-BL:CH=W+U%(Y,2)+U%(Y,3):PRINT" BLOCK [157][157][157][157]"BL"
386 [161]B$:[139]B$[178][199](133)[167]320
390 [129]X[178]EOT[164]Z:[161]#6,B$:[139]ST[178].[167]400
395 FL[178]Y:CH[178]CH[170]U%(Y,X):[129]A[178]X[170]W[164]Z:U%(Y,A)[178].:[130]:U%(Y,V)[178]CH[175]F:[137]405
400 U%(Y,X)[178][198](B$[170]C$):CH[178]CH[170]U%(Y,X):[130]:U%(Y,V)[178]CH[175]F:[130]:Y[178]Y[171]W
405 [139]A$[178]"2"[167][153]" ";:[137]550
410 [161]#255,A$:[161]B$:[139]B$[178][199](133)[167]320
411 [139]A$[179][177][199](NAK)[167]410
415 BL[178]BL[171]Y:Y[178].
420 [153]"ONON NAK "
425 Y[178]Y[170]W:BL[178]BL[170]W
430 [153]" BLOCK CMDCMDCMDCMD"BL:[129]X[178]W[164]V:[152]255,[199](U%(Y,X));:[130]
432 [161]B$:[139]B$[178][199](133)[167]320
435 [129]A[178].[164]1200:[161]#255,A$:[139]A$[178]""[167][130]:[153]"ON";:[137]430
440 [139]A$[178][199](ACK)[167][139]Y[178]P[167][153]"ON":[137]380
445 [139]A$[178][199](ACK)[167][139]FL[179][177]Y[167][153]"ONON ACK ":[137]425
450 [139]A$[178][199](ACK)[167][139]FL[178]Y[167]FL[178].:[141]535:[141]540:[160]G:[153]" ";:[137]550
455 [139]A$[178][199](NAK)[167][153]"ONON NAK ":[137]430
460 [139]A$[178][199](CAN)[167][160]6:[141]525
465 [137]435
504 [143]
505 [143] FETCH CHARACTER
506 [143]
507 [161]A$:[139]A$[178]""[167]507
510 [142]
519 [143]
520 [143] UP/DN LOAD CONTROLS
521 [143]
522 [152]255,[199](ACK);:Q[178].:[142]
525 Q[178]Q[170]W:[139]Q[178]11[167][160]G:A$[178][199](CAN):[152]255,A$:[153]"ON CANCELLED":[137]550
530 [152]255,[199](NAK);:[142]
535 [152]255,[199](EOT);:[142]
540 [161]#255,A$:[161]B$:[139]B$[178][199](133)[167]320
541 [139]A$[178]""[167]540
545 [142]
547 [143]
548 [143] READY WARNING
549 [143]
550 [153]R$"PRESS F1 FOR TERMINAL":[151]198,0
555 [129]T[178]1[164]80
560 [151]SO[170]1,250:[151]SO[170]5,10:[151]SO[170]15,200:[151]SO[170]24,15:[151]SO[170]4,21
565 [129]TT[178]1[164]1000:[130]:[151]SO[170]4,20
570 [161]A$:[139]A$[179][177][199](133)[167][151]198,0:[130]
575 [129]CL[178].[164]24:[151]SO[170]CL,.:[130]
580 [137]145
582 [143]
583 [143] UPLOAD START
584 [143]
585 [151]214,12:[141]700:[153]" HOST READY Y/N "J$:[141]505
586 [139]A$[178]"N"[167]320
590 [139]A$[179][177]"Y"[167]585
610 [153]" "F$
615 [151]214,12:[153]:[141]700:[153]" ":BL[178]W:Y[178]W:[137]410
699 [143]
700 [143] CLEAR LINE
701 [143]
711 [153]"ON "
720 [142]
799 [143]
800 [143] BEEPER
801 [143]
802 SO[178]54272
805 [129]T[178]1[164]TT
810 [151]SO[170]1,250:[151]SO[170]5,10:[151]SO[170]15,200:[151]SO[170]24,15:[151]SO[170]4,21
815 [129]TT[178]1[164]1000:[130]:[151]SO[170]4,20
817 [130]
820 [129]CL[178].[164]24:[151]SO[170]CL,.:[130]
825 [142]
899 [143]
900 [143] COMMAND CHANNEL READ
901 [143]
910 [132]7,EN,DE$,TR,SE
920 [142]
929 [143]
930 [143] COMMAND CHANNEL PRINT
931 [143]
940 [153]EN;DE$;TR;SE
945 [142]
1000 [143]
1001 [143] CHARACTER TEST
1002 [143]
1005 [139][198](A$)[177]192[167][137]198
1020 [139]A$[178][199](133)[167]320
1030 [139]([198](A$)[177]136) [175] ([198](A$)[179]141) [167]11000
1040 [139][198](A$)[178]175[167][141]2200:[137]165
1050 [139][198](A$)[178]141[167]B[178]0:[137]8220
1060 [139][198](A$)[178]177[175]B[178]0[167]B[178]1:[137]165
1070 [139][198](A$)[178]177[175]B[178]1[167]B[178]0:[137]165
1072 [139]([198](A$)[178]180)[175]([194](B1)[175]32)[178]0[167][151]B2,32:[151]B1,32:[137]165
1073 [139]([198](A$)[178]180)[175]([194](B1)[175]32)[178]32[167][151]B2,32:[151]B1,0:[137]165
1075 [139][198](A$)[178]182[175][195](J$)[178]1[167]J$[178][199](13)[170][199](10):[137]165
1076 [139][198](A$)[178]182[175][195](J$)[178]2[167]J$[178][199](13):[137]165
1099 [137]198
2000 [143]
2001 [143] SCREEN DUMP
2200 [143]
2201 [139]([194](53272)[175]2)[178]0[167][159]4,4
2202 [139]([194](53272)[175]2)[178]2[167][159]4,4,7
2203 TT[178]0
2204 [151]198,0
2220 [129]T[178]1024[164]2023:TT[178]TT[170]1
2240 [152]4,[199](S%([194](T)));:[161]B$:[139]B$[178][199](133)[167]2250
2242 [139]TT[178]40[167]TT[178]0:[152]4
2245 [130]
2250 [152]4:[160]4:A$[178]"":[142]
4999 [143]
5000 [143] UTILITIES PAGE
5001 [143]
5005 [153]E$[199](142)" "R$"UTILITIES PAGE"J$
5020 [153]" A> DIAL TONE PAUSE "DT
5030 [153]" B> CONNECT PAUSE "CP
5040 [153]" C> HANG UP PAUSE "HP
5050 [153]" D> NUMBER PAUSE "NP
5060 [153]" E> PULSE PAUSE "PP
5065 [153]" F> BUFFER BLOCKS (2-12) "P
5070 [153]" G> ECHO MODE ";
5071 [139]B[178]0[167][153]"OFF"
5072 [139]B[178]1[167][153]"ON"
5075 [153]" H> HANGUP ";
5076 [139]([194](B1)[175]32)[178]0[167][153]"OFF-LINE":HG[178]0
5077 [139]([194](B1)[175]32)[178]32[167][153]"LINE ACTIVE":HG[178]32
5081 [153]" J> BYTES FREE ";[184](0)
5082 [153]" K> FUNCTION KEYS"
5085 [153]" L> SCREEN COLOR"
5090 [153]" M> BORDER COLOR"
5095 [153]" N> CHARACTER COLOR"
5096 [153]" O> MAIN MENU INSTRUCTIONS"
5097 [153]" P> UTILITY INSTRUCTIONS"
5098 [153]" Q> EXIT"
5099 [153]" R> RUN"
5100 [153]J$" CHANGE ";:[141]505
5200 [139]A$[178]"A"[167][153]A$" ";:[133]DT:[139]DT[179]1[167]DT[178]200
5210 [139]A$[178]"B"[167][153]A$" ";:[133]CP:[139]CP[179]1[167]CP[178]750
5220 [139]A$[178]"C"[167][153]A$" ";:[133]HP:[139]HP[179]1[167]HP[178]300
5246 [139]A$[178]"D"[167][153]A$" ";:[133]NP:[139]NP[179]1[167]NP[178]400
5247 [139]A$[178]"E"[167][153]A$" ";:[133]PP:[139]PP[179]1[167]PP[178]25
5248 [139]A$[178]"F"[167][153]A$" ";:[133]P:[139](P[179]2)[176](P[177]12)[167]P[178]2
5250 [139]A$[178]"A"[176]A$[178]"B"[176]A$[178]"C"[176]A$[178]"D"[176]A$[178]"E"[176]A$[178]"F"[167]5000
5251 [139]A$[178]"G"[175]B[178]0[167]B[178]1:[137]5000
5255 [139]A$[178]"G"[175]B[178]1[167]B[178]0:[137]5000
5257 [139](A$[178]"H")[175]([194](B1)[175]32)[178]0[167][151]B2,32:[151]B1,32:HG[178]32:[137]5000
5258 [139](A$[178]"H")[175]([194](B1)[175]32)[178]32[167][151]B2,32:[151]B1,0:HG[178]0:[137]5000
5261 [139]A$[178]"K"[167][141]11100
5269 [139]A$[178]"L"[175]C1[178]15[167]C1[178][171]1
5270 [139]A$[178]"L"[167] C1[178]C1[170]1:[151]53248[170]33,C1:[139]C1[178]15[167]C1[178][171]1
5274 [139]A$[178]"M"[175]C2[178]15[167]C2[178][171]1
5275 [139]A$[178]"M"[167] C2[178]C2[170]1:[151]53248[170]32,C2:[139]C2[178]15[167]C2[178][171]1
5279 [139]A$[178]"N"[175]C3[178]15[167]C3[178][171]1
5280 [139]A$[178]"N"[167] C3[178]C3[170]1:[151]646,C3
5283 [139]A$[178]"N"[167] 5000
5284 [139]A$[178]"O"[167][141]13000:[137]5000
5285 [139]A$[178]"P"[167][141]12000:[137]5000
5286 [139]A$[178]"Q"[167][151]B2,32:[151]B1,0:[158]65511:[151]650,1:[153]E$:[128]
5288 [139]A$[178]"R"[167] [138]
5290 [139]A$[178][199](133)[167]320
5300 [139]A$[179][177][199](141)[167][153]"ONON":[137]5100
5350 [141]700:[153]"ON SAVING TO DISK"
5400 [159]2,8,15,"S:UTILITIES"
5410 [160]2
5420 [159]2,8,2,"UTILITIES,S,W"
5430 [152]2,DT;J$;CP;J$;HP;J$;NP;J$;PP;J$;P;J$;B;J$;HG;J$;C1;J$;C2;J$;C3
5510 [160]2
5599 [141]900:[139]EN[179][177]0[167][141]700:[153]"ON";:[141]930:[129]T[178]1[164]4000:[130]
5700 [137]5000
5999 [143]
6000 [143] XMIT STRING CONVERT
6001 [143]
6005 TS$[178]""
6010 [129]T[178]1[164][195](TR$):TS$[178]TS$[170][199](T%([198]([202](TR$,T,1)))):[130]
6015 [139][195](J$)[178]2[167]TS$[178]TS$[170][199](10)
6020 [142]
6099 [143]
6100 [143] CONVERT STRING FOR SCRN
6101 [143]
6105 TS$[178]""
6110 [129]T[178]1[164][195](TR$):TS$[178]TS$[170][199](F%([198]([202](TR$,T,1)))):[130]
6120 [142]
7000 [143]
7001 [143] WEDGE
7002 [143]
7010 [151]214,11
7020 [153]J$" >";
7100 [161]T$
7101 [139](T$[179][177]"$")[175](T$[179][177]"V")[175](T$[179][177]"S")[175](T$[179][177]"R")[175](T$[179][177][199](133))[167]7100
7111 [153]T$;
7112 [139]T$[178][199](133)[167][137]320
7120 [139]T$[178]"$"[167]7475
7121 [139]T$[178]"V"[167][152]7,"V":[129]T[178]1[164]20000:[130]:[153]"CMDCMD CMDCMD";:[137]7000
7122 [139](T$[178]"S")[176](T$[178]"R")[167][153]":";:[137]7600
7475 [153]:[159]1,8,0,"$":[161]#1,A$,A$
7480 [141]900:[139]EN[177]0[167][141]930:[160]1:[129]T[178]1[164]2000:[130]:[137]7100
7481 [161]#1,A$,A$:[139]A$[178]""[167]7497
7485 [161]#1,A$,B$:[153][198](A$[170]C$)[170][198](B$[170]C$)[172]256;
7490 [161]#1,A$:[139]A$[178]""[167]7501
7495 [153]A$;:[137]7490
7497 [160]1
7498 [161]A$:[139]A$[179][177][199](133)[167]7498
7499 [151]214,11:[129]T[178]1[164]12:[141]700:[153]:[130]:[151]214,11:[153]:[137]7000
7501 [139][194](214)[179][177]22[167][153]:[137]7480
7502 [161]A$:[139]A$[179][177][199](133)[167]7502
7503 [151]214,11:[129]T[178]1[164]12:[141]700:[153]:[130]:[151]214,11:[153]:[137]7481
7600 N$[178]""
7605 [161]D$:[139]D$[178]""[167]7605
7610 [139](D$[178][199](20))[175](N$[178]"")[167][153]"CMDCMD CMDCMDON";:[141]700:[137]7000
7620 [139]D$[178][199](20)[167][153]D$;:N$[178][200](N$,[195](N$)[171]1):[137]7605
7630 [139]D$[178][199](17)[167]7605
7640 [139]D$[178][199](29)[167]7605
7645 [139]D$[178][199](145)[167]7605
7650 [139]D$[178][199](157)[167]7605
7655 [139]D$[178][199](13)[167]7685
7660 N$[178]N$[170]D$:[153]D$;
7680 [137]7605
7685 [139]T$[178]"S"[167][152]7,"SCRATCH:"[170]N$
7690 [139]T$[178]"R"[167][152]7,"RENAME:"[170]N$
7691 [141]900:[139]EN[177]0[167][141]930:[160]1:[129]T[178]1[164]3000:[130]:[141]700:[137]7000
7699 [153]:[141]700:[137]7000
8000 [143]
8001 [143] SETUP BBS MODE
8002 [143]
8010 [153]E$[199](14):NC[178]0:NM[178]0
8015 TL$[178]"*******************************"
8016 TM$[178]"**** (null)LEFT$VAL (null)ATNLEN(null)VAL(null)(null) PEEKPEEK(null) ****"
8017 TN$[178]"**** (null)VAL(null)LEN(null)(null)VAL(null) (null)(null)(null) !! ****"
8020 TA$[178]"**** ASCVALATN(null)(null)(null)RIGHT$(null)CHR$ ****"
8022 TP$[178]"**** (null)(null)/STR$(null)(null)(null)(null)(null)ATNSTR$ ****"
8023 TQ$[178]"**** LENATN(null)ATNPEEKRIGHT$(null)RIGHT$(null)(null).... ****"
8024 TU$[178]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$[170]J$:TU$[178]TU$[170]TU$
8030 TB$[178]" <(null)>ESSAGE TO (null)YSOP"
8040 TC$[178]" <STR$>OWNLOAD ASCILES (SOON!!)
8050 TD$=" <[213]>PLOAD [198]ILES (SOON!!)
8060 TE$[178]" <(null)>ELL FOR (null)YSOP"
8070 TF$[178]" <CHR$>OODBYE"
8071 TY$[178]" <(null)>UBLIC (null)ESSAGE PEEKOARD (SOON!!)
8072 Q9$=" <[204]>IST <[197]>DIT <[195]>ONTINUE <[211]>AVE <[193]>BORT"
8080 TG$="[212]HREE [210][197][212][213][210][206][211] [212]ERMINATES [205]ESSAGE"
8085 TH$=" [211]AVING [205]ESSAGE...."
8086 TJ$=" [208]AGING [211]YSOP"
8087 TK$=" <?>MENU"
8088 TV$=" <[201]>NFO"
8089 TX$=" >"
8090 TZ$=" [211]YSOP [194]REAKING [201]N[160]!!.."
8091 BY$=" [194]YE......[208]LEASE [200]ANG [213]P!!"
8092 Q1$=" [195]OMMODORE 64 / [205][211][196] [196]UAL [196]RIVE"
8093 Q2$=" [205][208][211] 801 [208]RINTER / 1650 [193]UTOMODEM"
8094 Q3$=" [206]AME [208]LEASE "
8096 Q5$=" [197]NTER [211]UBJECT "
8099 Q8$=" [212]EXT [194]UFFER [198]ULL"
8100 REM
8101 REM AWAIT CALL
8102 REM
8110 POKEB2,32:POKEB1,0:J$=CHR$(13):NU$=""
8120 PRINTE$" "R$"[193]WAITING [195]ALL"
8130 IFNC<>0THENPRINT" ";NC;"CALLS
8140 [139]NM[179][177]0[167][153]" ";NM;"MESSAGES"
8150 [161]A$:[139]A$[178][199](133)[167]J$[178][199](13):B[178]0:[137]320
8160 [139]([194](B1)[175]8)[179][177]0[167]8150
8200 [143]
8201 [143] LOGON MESSAGE & MENU
8202 [143]
8203 [151]B2,6:[151]B1,32:TI$[178]"000000":TT[178]3:NC[178]NC[170]1:[141]800:[151]198,0
8204 [153]E$J$" LENONNECT ! "J$
8205 [129]T[178]1[164]2000:[130]
8207 TR$[178]TL$:[141]6000:[152]255,TU$;TS$
8208 TR$[178]TM$:[141]6000:[152]255,TS$
8209 TR$[178]TN$:[141]6000:[152]255,TS$
8210 TR$[178]TA$:[141]6000:[152]255,TS$
8211 TR$[178]TP$:[141]6000:[152]255,TS$
8212 TR$[178]TQ$:[141]6000:[152]255,TS$
8213 TR$[178]TL$:[141]6000:[152]255,TS$
8214 TR$[178]Q3$:[141]6000:[152]255,J$;J$;J$;TS$:[152]255," ";
8215 [161]#255,A$:[141]9990:[139]A$[178]""[167]8215
8216 [139](F%([198](A$))[178]20)[175]([195](NU$)[177]0)[167]NU$[178][200](NU$,[195](NU$)[171]1):[137]8218
8217 NU$[178]NU$[170][199](F%([198](A$))):[152]255,A$;
8218 [153][199](F%([198](A$)));:[139][195](NU$)[178]244[167]A$[178]J$:NU$[178]NU$[170]J$
8219 [139]A$[179][177][199](13)[167]8215
8220 TR$[178]TY$:[141]6000:[152]255,J$;J$;TS$
8222 TR$[178]TB$:[141]6000:[152]255,TS$
8240 TR$[178]TC$:[141]6000:[152]255,TS$
8250 TR$[178]TD$:[141]6000:[152]255,TS$
8260 TR$[178]TE$:[141]6000:[152]255,TS$
8270 TR$[178]TF$:[141]6000:[152]255,TS$
8272 TR$[178]TV$:[141]6000:[152]255,TS$
8275 TR$[178]TK$:[141]6000:[152]255,TS$
8280 TR$[178]TX$:[141]6000:[152]255,J$;J$;J$;TS$;
8400 [143]
8401 [143] MAKE DECISION
8402 [143]
8410 [161]#255,A$
8415 [141]9990
8438 [139]A$[178]""[167]8410
8440 [139][199](F%([198](A$)))[178]"G"[167][152]255,A$:[137]9980
8445 [139][199](F%([198](A$)))[178]"P"[167][152]255,A$:[137]9100
8450 [139][199](F%([198](A$)))[178]"M"[167][152]255,A$:[137]8600
8460 [139][199](F%([198](A$)))[178]"Y"[167][152]255,A$:[137]8800
8465 [139][199](F%([198](A$)))[178]"I"[167][152]255,A$:[137]8900
8470 [139][199](F%([198](A$)))[178]"?"[167][152]255,A$:[137]8220
8480 [137]8410
8600 [143]
8601 [143] LEAVE SYSOP MESSAGE
8602 [143]
8605 [141]9300
8610 TR$[178]TG$:[141]6000:[152]255,J$;J$;J$;TS$;J$;J$
8611 [139](S[178]51)[176](ML[177][178]2048)[167]TR$[178]Q8$:[141]6000:[152]255,J$;TS$:[137]8699
8612 [152]255,[199](T%([198](">")));
8615 [161]#255,A$
8630 [141]9990
8653 [139]A$[178]""[167]8615
8655 [139]A$[179][177][199](13)[167]SM[178]0:[137]8670
8660 [139]A$[178][199](13)[167]SM[178]SM[170]1
8665 [139]A$[178][199](13)[175]SM[178]3[167]8699
8670 [153]L$[199](F%([198](A$)));:[139]A$[178]Q$[167][151]U,.
8671 [152]255,A$;:[139]F%([198](A$))[178]20[167]S$(S)[178][200](S$(S),[195](S$(S))[171]1)
8672 S$(S)[178]S$(S)[170][199](F%([198](A$))):[139][195](S$(S))[178]254[167]A$[178][199](13):[137]8660
8679 [139]A$[178][199](13)[167]ML[178]ML[170][195](S$(S)):S[178]S[170]1:[137]8611
8680 [137]8615
8699 [141]9200:[137]8220
8700 [143]
8701 [143] SYSOP BREAKS IN
8702 [143]
8710 TR$[178]TZ$:[141]6000:[152]255,J$;J$;TS$;J$;J$
8720 B[178]1:[137]145
8800 [143]
8801 [143] YELL FOR SYSOP
8802 [143]
8805 YS[178]0
8810 TR$[178]TJ$:[141]6000:[153]J$;TJ$;:[152]255,J$;TS$;:[141]9960
8820 [152]255,[199](T%([198](".")));:[153]".";:YS[178]YS[170]1
8821 [151]SO[170]4,21:[129]TT[178]1[164]1000:[130]:[151]SO[170]4,20
8822 [141]9990
8830 [161]#255,A$:[139]A$[179][177]""[167][139]F%([198](A$))[178]13[167]8850
8840 [139]YS[179]25[167][129]T[178]1[164]500:[130]:[137]8820
8850 [141]9970:[152]255,J$;J$:[153]J$J$:[137]8220
8900 [143]
8901 [143] SYSTEM INFO
8902 [143]
8910 TR$[178]Q1$:[141]6000:[152]255,J$;J$;TS$
8920 TR$[178]Q2$:[141]6000:[152]255,TS$;J$;J$
8930 [137]8220
9100 [143]
9101 [143] PUBLIC MESSAGE BOARD
9102 [143]
9199 [137]8220
9200 [143]
9201 [143] SAVE MESSAGE TO DISK
9202 [143]
9203 TR$[178]TH$:[141]6000:[152]255,J$;TS$;
9208 S$(0)[178]NU$:[139][195](F$)[177]16[167]F$[178][200](F$,16)
9210 [159]8,8,8,F$[170]",S,W"
9212 [141]900:[139]EN[177]0[167]F$[178]"\"[170]F$:[141]9990:[137]9208
9220 [129]T[178]0[164]S:[139]S$(T)[179][177]""[167][152]8,S$(T)
9225 [130]
9230 [160]8:NM[178]NM[170]1
9235 [129]T[178]1[164]50:S$(T)[178]"":[130]
9299 [142]
9300 [143]
9301 [143] SUBJECT SET
9302 [143]
9305 A$[178]"":S[178]1:F$[178]"":ML[178]0:[129]T[178]0[164]50:S$(T)[178]"":[130]
9310 TR$[178]Q5$:[141]6000:[152]255,J$;TS$;[199](32);[199](32);
9320 [161]#255,A$:[141]9990:[139]A$[178]""[167]9320
9330 [139]A$[178][199](13)[167]9370
9335 [139](F%([198](A$))[178]20)[175]([195](F$)[177]0)[167]F$[178][200](F$,[195](F$)[171]1):[137]9355
9340 [139][198](A$)[177]127[167]A$[178][199]([198](A$)[171]128)
9350 F$[178]F$[170][199](F%([198](A$)))
9355 [152]255,A$;
9360 [137]9320
9370 [142]
9960 [143]
9961 [143] BEEP ON
9962 [143]
9963 SO[178]54272
9964 [151]SO[170]1,250:[151]SO[170]5,10:[151]SO[170]15,200:[151]SO[170]24,15
9965 [142]
9970 [143]
9971 [143] BEEP OFF
9972 [143]
9978 [129]CL[178]0[164]24:[151]SO[170]CL,0:[130]
9979 [142]
9980 [143]
9981 [143] LOGOFF MESSAGE
9982 [143]
9985 TR$[178]BY$:[141]6000:[152]255,J$;J$;TS$:[129]T[178]1[164]3000:[130]:[137]8100
9990 [143]
9991 [143] LINE STATUS
9992 [143]
9995 [139]([194](B1)[175]16)[178]16[167]9980
9997 [139][197](TI$)[177]3000[167]9980
9998 [139][194](198)[177]0[167]8700
9999 [142]
10500 [143]
10501 [143] AUTO DIALER
10502 [143]
10505 [151]B2,32:[151]B1,0:CC[178]0:TC[178]0:D$[178]"":D1$[178]""
10515 [153]"":[153]" PHONE # ";R$;"_CMD";[199](146);
10516 [161]D1$:[139]D1$[178]""[167]10516
10517 [139]D1$[178][199](17)[167]10516
10518 [139]D1$[178][199](145)[167]10516
10519 [139]D1$[178][199](157)[167]10516
10520 [139]D1$[178][199](29)[167]10516
10522 [139]D1$[178][199](13)[167]10526
10523 [139]D1$[178][199](20)[167][153]D1$;:D$[178][200](D$,[195](D$)[171]1):[137]10516
10524 [139]D1$[178][199](133)[167]320
10525 [153]D1$R$;"_CMD";[199](146);:D$[178]D$[170]D1$:[137]10516
10526 [139]D$[178]""[167]320
10527 [153]" ";
10536 [139][195](D$)[178]7[167][153][200](D$,3);"-";[201](D$,4)
10537 [139][195](D$)[178]10[167][153]"(";[200](D$,3);") ";[202](D$,4,3);"-";[201](D$,4)
10538 [139]([195](D$)[179][177]7)[175]([195](D$)[179][177]10)[167][153]D$
10539 [151]214,13:[141]700:TI$[178]"000000"
10540 [151]B2,32:[151]B1,32
10542 [153]"ON ";
10560 [129]T[178]1[164]DT[172]10:[130]
10580 [129]X9[178]1[164][195](D$)
10585 [161]A$:[139]A$[178][199](133)[167][151]B2,32:[151]B1,0:[137]320
10590 N$[178][202](D$,X9,1)
10592 [153]N$R$"_CMD";[199](146);
10595 [139]N$[178]"P"[167][129]T[178]1[164]500:[130]:[137]10630
10600 N[178][197](N$)
10610 [139]N[178]0[167]N[178]10
10620 [141]10650
10630 [130]X9
10634 TT[178]0:[129]T[178]1[164]CP
10635 [139]([194](B1)[175]16)[178]0[167]CC[178]CC[170]1:[139]CC[178]10[167][153]:[153]" ";:[137]550
10638 [161]A$:[139]A$[178][199](133)[167][151]B2,32:[151]B1,0:[137]320
10639 [130]
10640 TC[178]TC[170]1:[153]" "TC" CALLS [ "[202](TI$,3,2)":"[201](TI$,2)" ]"
10641 [151]B2,32:[151]B1,0:[129]T[178]1[164]HP:[161]A$:[139]A$[179][177][199](133)[167][130]:[137]10540
10642 [137]320
10650 [129]N1[178]1[164]N
10652 [129]T[178]1[164]PP:[130]
10655 [151]B1,0
10662 [129]T[178]1[164]PP:[130]
10670 [151]B1,32
10685 [130]N1
10692 [129]T[178]1[164]NP:[130]
10695 [142]
10999 [143]
11000 [143] FUNCTION KEY PRINT
11001 [143]
11020 [145][198](A$)[171]136[137]11035,11040,11043,11048
11035 [152]255,F2$:[139]B[178]1[167]TR$[178]F2$:[141]6100:[153]TS$
11037 [137]165
11040 [152]255,F4$:[139]B[178]1[167]TR$[178]F4$:[141]6100:[153]TS$
11042 [137]165
11043 [152]255,F6$:[139]B[178]1[167]TR$[178]F6$:[141]6100:[153]TS$
11045 [137]165
11048 [152]255,F8$:[139]B[178]1[167]TR$[178]F8$:[141]6100:[153]TS$
11050 [137]165
11099 [143]
11100 [143] DEFINE FUNCTION KEYS
11101 [143]
11102 [139]F2$[178]""[167] F2$[178]"PASSWORD"
11104 [139]F4$[178]""[167] F4$[178]"NAME"
11106 [139]F6$[178]""[167] F6$[178]"CITY-STATE"
11108 [139]F8$[178]""[167] F8$[178]"COMMODORE 64"
11150 [153]E$[199](14)" "R$"STR$EFINE ASCUNCTIONCLOSE(null)EYS"J$J$
11200 TR$[178]F2$:[141]6100:[153]"F2 = "TS$J$
11205 TR$[178]F4$:[141]6100:[153]"F4 = "TS$J$
11210 TR$[178]F6$:[141]6100:[153]"F6 = "TS$J$
11215 TR$[178]F8$:[141]6100:[153]"F8 = "TS$J$
11250 [153]J$J$"(null)(null)VAL(null)(null)CLOSELEN=CLOSE<LEN(null)>CLOSEASC(null)(null)CLOSEASCRIGHT$(null)VALCLOSE(null)(null)STR$ATN(null)VAL"
11300 [153]J$J$J$"LENHOOSE ";:[141]505
11310 [139]A$[178][199](133)[167]5000
11430 [139]A$[178][199](137)[167][133]"F2 ";F2$:TR$[178]F2$:[141]6000:F2$[178]TS$:[137]11100
11440 [139]A$[178][199](138)[167][133]"F4 ";F4$:TR$[178]F4$:[141]6000:F4$[178]TS$:[137]11100
11450 [139]A$[178][199](139)[167][133]"F6 ";F6$:TR$[178]F6$:[141]6000:F6$[178]TS$:[137]11100
11460 [139]A$[178][199](140)[167][133]"F8 ";F8$:TR$[178]F8$:[141]6000:F8$[178]TS$:[137]11100
11470 [139]A$[179][177][199](141)[167][153]"ONONONON":[137]11300
11500 [159]1,8,15,"S:FUNCTION KEYS"
11505 [160]1
11600 [159]1,8,2,"FUNCTION KEYS,S,W"
11610 [152]1,F2$J$,F4$J$,F6$J$,F8$
11620 [160]1
11700 [141]900:[139]EN[177]0[167][153]E$;:[141]930:[153][199](142);
11800 [142]
12000 [143]
12001 [143] UTILITY INSTR.
12002 [143]
12005 [153]E$[199](14)
12030 [153]"LOAD"
12032 [153]" (null)VAL(null)CLOSESTR$VALASCRIGHT$(null)RIGHT$(null)RIGHT$(null)(null)(null)":[153]
12034 [153]" ************************":[153]
12035 [153]" ASC1 = (null)VAL(null)(null)"
12037 [153]" ASC3 = LEN(null)(null)(null)CLOSE(null)"
12039 [153]" ASC5 = LEN(null)(null)(null) (null)"
12041 [153]" ASC7 = LEN(null)(null)(null) (null)"
12042 [153]" LEN=CLOSECLOSELENCLOSECLOSECLOSE = LEN(null)(null)(null) LEN"
12043 [153]" LEN= (null) = LEN(null)(null)(null) (null)"
12044 [153]" ASC2 ="
12045 [153]" ASC4 = ... (null)(null)(null)CHR$(null)ATN(null)ATNPEEK(null)VAL"
12046 [153]" ASC6 = ... ASC(null)(null)LEN(null)RIGHT$(null)(null)CLOSE(null)VAL(null)(null)"
12047 [153]" ASC8 ="
12048 [153]" LEN= VAL = VALLENLEFT$(null)CLOSE(null)(null)STR$VALCLOSE(null)(null)CHR$CHR$(null)VAL"
12050 [153]" LEN= LEFT$ = LEFT$ATN(null)CHR$(null)(null)CLOSE(null)(null)CHR$CHR$(null)VAL"
12051 [153]" LEN= (null) = (null)(null)RIGHT$(null)(null)CLOSESTR$(null)(null)(null)"
12055 [153]" LEN= <LEN(null)> = ASCRIGHT$(null)VALCLOSE(null)(null)STR$ATN(null)VAL"
12070 [153]" (null)(null)VAL(null)(null)CLOSEASC1 ASC(null)(null)CLOSE(null)(null)(null)VAL"
12072 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)"
12099 [161]A$:[139]A$[178][199](175)[167][141]2000
12100 [139]A$[179][177][199](133)[167]12099
12110 [153]E$[199](14)" (null)(null)RIGHT$(null)RIGHT$(null)RIGHT$VAL(null) (null)ATNCHR$VAL "
12120 [153]" RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) "
12130 [153]J$" STR$RIGHT$ATN(null)CLOSE(null)(null)(null)VALCLOSE(null)ATN(null)(null)VAL"
12131 [153]" THE AMOUNT OF TIME TO GET A DIAL"
12132 [153]" TONE AFTER YOU PICK UP THE PHONE"
12140 [153]J$" LEN(null)(null)(null)VALLEN(null)CLOSE(null)ATN(null)(null)VAL"
12141 [153]" THE AMOUNT OF TIME TO ANSWER THE"
12142 [153]" PHONE AND ACCEPT A CARRIER"
12150 [153]J$" LEFT$ATN(null)CHR$(null)(null)CLOSE(null)ATN(null)(null)VAL"
12151 [153]" THE AMOUNT OF TIME TO HANGUP"
12152 [153]" WELL ENOUGH TO CALL AGAIN"
12160 [153]J$" (null)(null)(null)PEEKVAL(null)CLOSE(null)ATN(null)(null)VAL"
12161 [153]" THE AMOUNT OF TIME BETWEEN"
12162 [153]" NUMBERS DIALED"
12170 [153]J$" (null)(null)(null)(null)VALCLOSE(null)ATN(null)(null)VAL"
12171 [153]" THE AMOUNT OF TIME BETWEEN"
12172 [153]" PULSES FOR EACH NUMBER DIALED"
12180 [153]" (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL"
12182 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)";
12198 [161]A$:[139]A$[178][199](175)[167][141]2000
12199 [139]A$[179][177][199](133)[167]12198
12200 [153]E$[199](14)" (null)(null)RIGHT$(null)RIGHT$(null)RIGHT$VAL(null) (null)ATNCHR$VAL "
12210 [153]" RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) "
12220 [153]J$" PEEK(null)ASCASCVAL(null)CLOSEPEEK(null)(null)LEN(null)(null)CLOSE(2-64)"
12221 [153]" THE NUMBER OF 128 BYTE BLOCKS"
12222 [153]" FOR UP/DOWN LOADING"
12223 [153]" SYSTEM WILL UPDATE UTILITIES FILE"
12224 [153]" AND RERUN PROGRAM"
12230 [153]J$" VALLENLEFT$(null)CLOSE(null)(null)STR$VAL"
12231 [153]" FOR CALLING OTHER COMPUTERS AS"
12232 [153]" OPPOSED TO A BULLETIN BOARD"
12233 [153]" WITHOUT THIS YOU WILL NOT BE ABLE"
12234 [153]" TO SEE WHAT YOU TYPE"
12240 [153]J$" LEFT$ATN(null)CHR$(null)(null)"
12241 [153]" THIS IS THE HANGUP TOGGLE"
12245 [153]J$" PEEK(null)(null)VAL(null)CLOSEASC(null)VALVAL"
12246 [153]" THE NUMBER OF MEMORY BYTES UNUSED"
12253 [153]" (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL"
12254 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)";
12255 [161]A$:[139]A$[178][199](175)[167][141]2000
12256 [139]A$[179][177][199](133)[167]12255
12300 [153]E$[199](14)" (null)(null)RIGHT$(null)RIGHT$(null)RIGHT$VAL(null) (null)ATNCHR$VAL "
12310 [153]" RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) "
12330 [153]J$" ASC(null)(null)LEN(null)RIGHT$(null)(null)CLOSE(null)VAL(null)(null)"
12331 [153]" THESE ARE PROGRAMMABLE KEYS THAT"
12332 [153]" CAN BE USED TO SEND PASSWORDS,"
12333 [153]" NAMES OR ANYTHING 80 CHARACTERS"
12334 [153]" OR LESS"
12335 [153]" THESE KEYS ARE UPDATED TO DISK"
12336 [153]" BY PRESSING LEN= <LEN(null)>"
12400 [153]J$" (null)LEN(null)VALVAL(null)CLOSELEN(null)(null)(null)(null)"
12401 [153]" PEEK(null)(null)STR$VAL(null)CLOSELEN(null)(null)(null)(null)"
12402 [153]" LENLEFT$ATN(null)ATNLEN(null)VAL(null)CLOSELEN(null)(null)(null)(null)"
12403 [153]" THESE ARE THE COLOR CONTROLS AND"
12404 [153]" ARE SAVED TO DISK WHEN UPDATED"
12410 [153]J$" **************************************"
12412 [153]" (null)VAL(null)VALLEN(null)RIGHT$(null)(null)(null)CLOSEATN (null)(null) RIGHT$ ATN(null)STR$ (null) (null)(null) (null) ATN(null)VAL (null)ATN(null)VALSTR$"
12414 [153]" (null)(null) STR$RIGHT$(null)(null)CLOSEPEEK(null)CLOSE(null)(null)VAL(null)(null)RIGHT$(null)CHR$CLOSELEN=CLOSEATN(null)STR$CLOSE(null)VAL(null)(null)(null)(null)"
12415 [153]" **************************************"
12995 [153]" (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)VAL(null)(null)"
12996 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)";
12997 [161]A$:[139]A$[178][199](175)[167][141]2000
12998 [139]A$[179][177][199](133)[167]12997
12999 [142]
13000 [143]
13001 [143] MAIN MENU INSTR.
13002 [143]
13100 [153]E$[199](14)" (null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null)"
13120 [153]" RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) "
13130 [153]" (null)(null)(null)STR$VAL(null) (null)(null)(null)(null)(null)LEN(null)(null)CLOSEVAL(null)LEN(null)(null)(null)RIGHT$(null)VAL(null)(null)CLOSE!"
13131 [153]" ..............................."
13140 [153]J$" (null)(null)ATNSTR$CLOSEPEEK(null)ASCASCVAL(null)"
13141 [153]" (null)HIS OPTION IS FOR"
13142 [153]" PRELOADING 128 BYTE BLOCKS FOR"
13143 [153]" UPLOAD."
13144 [153]" (null)HE NUMBER OF BLOCKS IS"
13145 [153]" CONTROLLED FROM THE UTILITIES"
13146 [153]" PAGE."
13150 [153]J$" STR$(null)(null)(null)(null)(null)ATNSTR$"
13151 [153]" THIS OPTION IS FOR"
13152 [153]" RECIEVING PROGRAMS FROM OTHER"
13153 [153]" COMPUTER SYSTEMS."
13160 [153]J$" (null)(null)(null)(null)ATNSTR$"
13161 [153]" THIS OPTION IS FOR TRANSMITTING"
13162 [153]" PROGRAMS ALREADY LOADED INTO THE"
13163 [153]" BUFFER"
13190 [153]" (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL"
13191 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)";
13192 [161]A$:[139]A$[178][199](175)[167][141]2000
13193 [139]A$[179][177][199](133)[167]13192
13200 [153]E$[199](14)" (null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null)"
13220 [153]" RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) "
13330 [153]J$" (null)VALSTR$CHR$VAL"
13331 [153]" THIS OPTION SIMULATES THE"
13332 [153]" LEN-64 WEDGE"
13333 [153]" <(null)>ALIDATE, <$>DIRECTORY,"
13334 [153]" <(null)>ENAME AND <(null)>CRATCH ARE"
13335 [153]" AVAILABLE"
13430 [153]J$" PEEKPEEK(null)CLOSE(null)(null)STR$VAL"
13431 [153]" (null)HIS OPTION IS FOR UNATTENDED"
13432 [153]" CONTROL OF YOUR COMPUTER."
13434 [153]" ATNNY KEY ENTERS CHAT MODE"
13435 [153]" LEN= RETURN DUMPS BACK INTO BBS."
13436 [153]" (null)ESSAGES ARE SEQUENTIAL FILES"
13437 [153]" AND LINES CAN BE 256 CHARACTERS."
13438 [153]" 50 LINES OR 2048 CHARACTERS"
13439 [153]" IS THE SIZE LIMIT."
13496 [153]" (null)(null)VAL(null)(null)CLOSEASC1CLOSEASC(null)(null)CLOSE(null)(null)(null)VAL"
13497 [153]" (null)(null)VAL(null)(null)CLOSELEN=CLOSE(null)CLOSEASC(null)(null)CLOSELEFT$ATN(null)STR$LEN(null)(null)(null)";
13498 [161]A$:[139]A$[178][199](175)[167][141]2000
13499 [139]A$[179][177][199](133)[167]13498
13999 [142]
15000 [143]
15001 [143] DEFINE VARIABLES
15002 [143]
15020 [159]7,8,15,"I"
15037 [159]1,8,2,"FUNCTION KEYS,S,R":[132]1,F2$,F4$,F6$,F8$:[160]1:[141]900
15040 [159]2,8,2,"UTILITIES,S,R":[132]2,DT,CP,HP,NP,PP,P,B,HG,C1,C2,C3:[160]2
15041 [141]900
15042 [139]EN[177]0[167]DT[178]200:CP[178]750:HP[178]300:NP[178]200:PP[178]5:P[178]2:HG[178]1:C1[178]6:C2[178]6:C3[178]14
15044 U[178]212:W[178]1:E$[178][199](147):P$[178][199](19):O[178]8:I$[178][199](10):J$[178][199](13):[151]198,0
15045 ACK[178]6:NAK[178]21:EOT[178]4:CAN[178]24:Z[178]131:V[178]132:F[178]255:M[178]288:B1[178]56577:B2[178]56579
15050 C$[178][199](.):R$[178][199](18):O$[178][199](187)[170][199](157):SO[178]54272:[151]B2,32:[151]B1,HG
15052 Q$[178][199](34):L$[178][199](32)[170][199](157)
15100 [143]
15102 [143]
15103 [143] LOAD TRANSLATION TABLES
15104 [143]
15105 [134]F%(F),T%(F),U%(12,V),S%(F),S$(50)
15115 [129]J[178]32[164]64:T%(J)[178]J:F%(J)[178]J:F%(J[170]128)[178]J:S%(J)[178]J:S%(J[170]128)[178]J:[130]
15120 [129]J[178]65[164]90:T%(J)[178]J[170]32:T%(J[170]128)[178]J:F%(J)[178]J[170]128:F%(J[170]128)[178]J[170]128:F%(J[170]32)[178]J
15125 F%(J[170]160)[178]J:S%(J)[178]J[170]32:S%(J[170]128)[178]J[170]32:[130]
15126 [129]J[178]91[164]95:T%(J)[178]J:F%(J)[178]J:F%(J[170]128)[178]J:[130]
15127 [129]J[178]0[164]31:S%(J)[178]J[170]64:S%(J[170]128)[178]J[170]64:[130]
15129 [129]J[178]91[164]127:S%(J)[178]32:S%(J[170]128)[178]32:[130]
15130 T%(13)[178]13:T%(20)[178]8:T%(134)[178]3:T%(135)[178]17:T%(136)[178]19:T%(188)[178]16
15131 T%(147)[178]19:T%(189)[178]24
15132 S%(64)[178]0:S%(192)[178]0
15135 F%(8)[178]20:F%(136)[178]20:F%(16)[178]146:F%(144)[178]146:F%(13)[178]13:F%(141)[178]13
15200 [142]
20000 [143]
20001 [143] GREETING
20002 [143]
20005 [153][199](142):[153][199](147):[151]53248[170]32,6:[151]53248[170]33,6:[151]646,14
20020 [153]" WAIT";:[153]" STEP (null)WAIT"
20030 [153]" WAIT WAIT WAIT";:[153]" (null) WAITSTEP WAIT(null) WAITSTEPWAIT"
20032 [153]" WAIT WAIT WAIT";:[153]" (null)(null)(null) WAIT"
20034 [153]" WAIT WAIT WAIT";:[153]" (null)(null)(null) WAIT"
20036 [153]" WAIT WAIT WAIT";:[153]" (null)(null)(null) WAIT"
20040 [153]" "
20042 [153]" WAIT "
20044 [153]" WAIT";:[153]" WAIT"
20046 [153]" WAIT WAIT"
20048 [153]" WAIT WAIT"
20050 [153]" WAIT"
20052 [153]" "
20054 [153]" "
20056 [153]" "
20058 [153]" "
20060 [153]" "
20062 [153]" "
20064 [153]" "
20066 [153]" "
20068 [153]" "
20070 [153]" "
20072 [153]" "
20074 [153]" "
20076 [153]" "
20078 [153]" "
20080 [153]" "
20082 [153]" WAIT "
20084 [153]" "
20086 [153]" WAIT (null)"
20088 [153]" WAIT "
20090 [153]" "
20092 [153]" WAIT WAIT WAIT "
20094 [153]" WAIT WAIT WAIT "
20096 [153]" WAIT WAIT WAIT "
20098 [153]" WAIT WAIT WAIT "
20150 [139]W[179][177]1[167][141]15000
20250 [153]" <F1> FOR MENU"
20255 [161]A$:[139]A$[179][177][199](133)[167]20255
20260 [137]320
60000 [143]
60001 [143] SAVE ROUTINE
60002 [143]
60010 [133]"FILENAME";NM$
60020 [148]NM$,8
0